home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest87 / SCHINDLR < prev    next >
Encoding:
Text File  |  1989-07-19  |  1.3 KB  |  49 lines  |  [TEXT/MARS]
  1. ;       2ND ICWS COMPETITION ENTRY
  2. ;
  3. ;       NAME :  SCHINDLR.1
  4. ;
  5. ;       PROGRAMMER : MICHAEL SCHINDLER
  6. ;
  7. ;        ORG     START
  8. NULL    DAT     0                      ; ABSOLUTE NOTHING
  9. TRAP    MOV     NULL,-2
  10.         DJN     TRAP,-3
  11.         JMP     TRAP
  12. KILL    MOV     NULL,<TARGET
  13.         JMN     KILL,TARGET
  14. ;       MOV     #NULL-2-TARGET,TARGET
  15.         MOV     #-10, TARGET
  16.         JMP     KILL
  17. TARGET  DAT     -6
  18. WHAT    DAT     10                      ; DATA AREA
  19.         JMP     @90
  20.         JMP     @80
  21.         JMP     @70
  22.         JMP     @60
  23.         JMP     @50
  24.         JMP     @40
  25.         JMP     @30
  26.         JMP     @20
  27.         JMP     @10
  28. ;ABS     DAT     PRISON-NULL+2
  29. ABS     DAT     46
  30. WHERE   DAT     -25
  31. FLAG    DAT     1
  32. START   MOV     @WHAT,@WHERE            ; HUNTING PART
  33.         SUB     #10,WHERE
  34.         DJN     START,WHAT
  35.         ADD     #100,ABS
  36.         MOV     #10,WHAT
  37.         JMN     START,FLAG
  38.         SPL     KILL                    ; COMING PAST THIS POINT WHEN
  39.         SPL     TRAP                    ; FLAG=0 THAT IS WHEN ENEMY 
  40. WORK    SPL     0                       ; CAUGHT
  41.         MOV     NULL,<TARGET
  42.         MOV     NULL,<TARGET
  43.         JMP     -2
  44. PRISON  MOV     NULL,0
  45.         MOV     #0,FLAG
  46.         SPL     WORK
  47.         JMP     -1
  48.         END     START
  49.